zap-to-char: Fix interactive specification

* lisp/simple.el (zap-to-char): Include t in the list.

diff --git a/lisp/simple.el b/lisp/simple.el
index 6906675f68ad6f8c7157be2644af6be2e78c091b..fb1bf3fa742d4d50196a9b73a4ad396772b13418 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -6352,8 +6352,8 @@ If called interactively, do a case sensitive search if CHAR
 is an upper-case character."
   (interactive (list (prefix-numeric-value current-prefix-arg)
                     (read-char-from-minibuffer "Zap to char: "
-                                               nil 'read-char-history))
-               t)
+                                               nil 'read-char-history)
+               t))
   ;; Avoid "obsolete" warnings for translation-table-for-input.
   (with-no-warnings
     (if (char-table-p translation-table-for-input)